home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / basic / qbmouse.zip / TEST.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-10-11  |  3.5 KB  |  164 lines
  1.     ' A simple test program, which shows what all of the pre-made bitmaps
  2.     ' (in BITMAPS.TXT) look like.  Just click a button to move on to the
  3.     ' next bitmap.
  4.  
  5.    
  6.     '$INCLUDE: 'mouse.bi'
  7.    
  8.     '$INCLUDE: 'bitmaps.txt'
  9.  
  10.     SCREEN 2
  11.     CLS
  12.     DIM event AS MouseEvent
  13.     PRINT "Wait..."
  14.     LINE (500, 0)-(600, 50), , BF
  15.     IF MouseInit(2) = 0 THEN
  16.         SCREEN 0
  17.         CLS
  18.         PRINT "No mouse!"
  19.         END
  20.     END IF
  21.     PRINT "Ok."
  22.     LOCATE 23, 30
  23.     PRINT "Default Mouse Pointer"
  24.     WHILE NOT MouseButton(event, TRUE)
  25.     WEND
  26.     LOCATE 23, 30
  27.     PRINT "                     "
  28.     MouseGraphicsPtr 5, 0, MapHand
  29.     LOCATE 23, 37
  30.     PRINT "MapHand"
  31.     WHILE NOT MouseButton(event, TRUE)
  32.     WEND
  33.     MouseGraphicsPtr 8, 0, MapHand2
  34.     LOCATE 23, 36
  35.     PRINT "MapHand2"
  36.     WHILE NOT MouseButton(event, TRUE)
  37.     WEND
  38.     MouseGraphicsPtr 8, 8, MapHand3
  39.     LOCATE 23, 36
  40.     PRINT "MapHand3"
  41.     WHILE NOT MouseButton(event, TRUE)
  42.     WEND
  43.     MouseGraphicsPtr 11, 0, MapLeftHand
  44.     LOCATE 23, 34
  45.     PRINT "MapLeftHand"
  46.     WHILE NOT MouseButton(event, TRUE)
  47.     WEND
  48.     MouseGraphicsPtr 8, 8, MapLeftHand2
  49.     LOCATE 23, 34
  50.     PRINT "MapLeftHand2"
  51.     WHILE NOT MouseButton(event, TRUE)
  52.     WEND
  53.     MouseGraphicsPtr 8, 4, MapHourGlass
  54.     LOCATE 23, 34
  55.     PRINT "MapHourGlass"
  56.     WHILE NOT MouseButton(event, TRUE)
  57.     WEND
  58.     MouseGraphicsPtr 8, 4, MapHourGlass2
  59.     LOCATE 23, 33
  60.     PRINT "MapHourGlass2"
  61.     WHILE NOT MouseButton(event, TRUE)
  62.     WEND
  63.     MouseGraphicsPtr 8, 4, MapHourGlass3
  64.     LOCATE 23, 33
  65.     PRINT "MapHourGlass3"
  66.     WHILE NOT MouseButton(event, TRUE)
  67.     WEND
  68.     MouseGraphicsPtr 0, 0, MapArrow
  69.     LOCATE 23, 33
  70.     PRINT "   MapArrow  "
  71.     WHILE NOT MouseButton(event, TRUE)
  72.     WEND
  73.     MouseGraphicsPtr 7, 0, MapArrow2
  74.     LOCATE 23, 36
  75.     PRINT "MapArrow2"
  76.     WHILE NOT MouseButton(event, TRUE)
  77.     WEND
  78.     MouseGraphicsPtr 1, 0, MapArrow3
  79.     LOCATE 23, 36
  80.     PRINT "MapArrow3"
  81.     WHILE NOT MouseButton(event, TRUE)
  82.     WEND
  83.     MouseGraphicsPtr 7, 7, MapCross
  84.     LOCATE 23, 36
  85.     PRINT "MapCross "
  86.     WHILE NOT MouseButton(event, TRUE)
  87.     WEND
  88.     MouseGraphicsPtr 8, 8, MapClock
  89.     LOCATE 23, 36
  90.     PRINT "MapClock"
  91.     WHILE NOT MouseButton(event, TRUE)
  92.     WEND
  93.     MouseGraphicsPtr 7, 7, MapTextI
  94.     LOCATE 23, 36
  95.     PRINT "MapTextI"
  96.     WHILE NOT MouseButton(event, TRUE)
  97.     WEND
  98.     MouseGraphicsPtr 7, 7, MapTextI2
  99.     LOCATE 23, 36
  100.     PRINT "MapTextI2"
  101.     WHILE NOT MouseButton(event, TRUE)
  102.     WEND
  103.     MouseGraphicsPtr 7, 3, MapBox
  104.     LOCATE 23, 36
  105.     PRINT " MapBox  "
  106.     WHILE NOT MouseButton(event, TRUE)
  107.     WEND
  108.     MouseGraphicsPtr 8, 8, MapWindow
  109.     LOCATE 23, 36
  110.     PRINT "MapWindow"
  111.     WHILE NOT MouseButton(event, TRUE)
  112.     WEND
  113.     MouseGraphicsPtr 7, 15, MapNail
  114.     LOCATE 23, 36
  115.     PRINT " MapNail "
  116.     WHILE NOT MouseButton(event, TRUE)
  117.     WEND
  118.     MouseGraphicsPtr 0, 2, MapHammer
  119.     LOCATE 23, 36
  120.     PRINT "MapHammer"
  121.     WHILE NOT MouseButton(event, TRUE)
  122.     WEND
  123.     MouseGraphicsPtr 8, 8, MapUFP
  124.     LOCATE 23, 36
  125.     PRINT " MapUFP  "
  126.     WHILE NOT MouseButton(event, TRUE)
  127.     WEND
  128.     MouseGraphicsPtr 4, 0, MapPencil
  129.     LOCATE 23, 36
  130.     PRINT "MapPencil"
  131.     WHILE NOT MouseButton(event, TRUE)
  132.     WEND
  133.     MouseGraphicsPtr 15, 7, MapMouse
  134.     LOCATE 23, 36
  135.     PRINT "MapMouse "
  136.     WHILE NOT MouseButton(event, TRUE)
  137.     WEND
  138.     MouseGraphicsPtr 7, 0, MapHypo
  139.     LOCATE 23, 36
  140.     PRINT " MapHypo"
  141.     WHILE NOT MouseButton(event, TRUE)
  142.     WEND
  143.     MouseGraphicsPtr 7, 0, MapScrewDriver
  144.     LOCATE 23, 33
  145.     PRINT "MapScrewDriver"
  146.     WHILE NOT MouseButton(event, TRUE)
  147.     WEND
  148.     MouseGraphicsPtr 6, 0, MapKnife
  149.     LOCATE 23, 33
  150.     PRINT "   MapKnife   "
  151.     WHILE NOT MouseButton(event, TRUE)
  152.     WEND
  153.     MouseGraphicsPtr 8, 0, MapScrew
  154.     LOCATE 23, 36
  155.     PRINT "MapScrew"
  156.     WHILE NOT MouseButton(event, TRUE)
  157.     WEND
  158.     MouseHide
  159.     SCREEN 0
  160.     CLS
  161.     PRINT "Goodbye!"
  162.     END
  163.  
  164.